VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPuntoVenta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarsnomImpresora As String
Private mvarsSerImpresora As String
Private mvarnNumBoleta As Long
Private mvarsDireccion As String
Private mvarsTelefono As String
Private mvarsSerie As String
Private mvarnNumFactura As Long
Private mvarbCompania As bCompania
Private mvarsdescripcion As String
Private Sub Class_Initialize()
Set bCompania = New bCompania
End Sub
Private Sub Class_Terminate()
    Set mvarbCompania = Nothing
End Sub
Friend Property Let sSerie(ByVal vData As String)
    mvarsSerie = vData
End Property
Friend Property Get sSerie() As String
    sSerie = mvarsSerie
End Property
Friend Property Let sTelefono(ByVal vData As String)
    mvarsTelefono = vData
End Property
Friend Property Get sTelefono() As String
    sTelefono = mvarsTelefono
End Property
Friend Property Let sDireccion(ByVal vData As String)
    mvarsDireccion = vData
End Property
Friend Property Get sDireccion() As String
    sDireccion = mvarsDireccion
End Property
Friend Property Let nNumBoleta(ByVal vData As Long)
    mvarnNumBoleta = vData
End Property
Friend Property Get nNumBoleta() As Long
    nNumBoleta = mvarnNumBoleta
End Property
Friend Property Let sSerImpresora(ByVal vData As String)
    mvarsSerImpresora = vData
End Property
Friend Property Get sSerImpresora() As String
    sSerImpresora = mvarsSerImpresora
End Property
Friend Property Let snomImpresora(ByVal vData As String)
    mvarsnomImpresora = vData
End Property
Friend Property Get snomImpresora() As String
    snomImpresora = mvarsnomImpresora
End Property
Public Property Get nNumFactura() As Long
    nNumFactura = mvarnNumFactura
End Property
Public Property Let nNumFactura(ByVal nNumFactura As Long)
    mvarnNumFactura = nNumFactura
End Property
Public Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property
Public Property Set bCompania(bCompania As bCompania)
    Set mvarbCompania = bCompania
End Property
Public Property Get sdescripcion() As String
    sdescripcion = mvarsdescripcion
End Property
Public Property Let sdescripcion(ByVal sdescripcion As String)
    mvarsdescripcion = sdescripcion
End Property
